10 LINE=49152
20 HARDCOPY=49155
30 CLEAR=49158
40 SYS CLEAR
50 A=20:TX=480:TY=1500
100 FOR T=90/A TO 90 STEP 90/A
110 X=COS(T/180*(null))* 475
120 Y=SIN(T/180*(null))*1495
130 :
140 SYS LINE,1,TX+X,TY+Y,TX-X,TY-Y
150 SYS LINE,1,TX+X,TY-Y,TX-X,TY+Y
160 :
170 SYS LINE,1,TX+X,TY+Y,TX-X,TY+Y
180 SYS LINE,1,TX-X,TY+Y,TX-X,TY-Y
190 SYS LINE,1,TX-X,TY-Y,TX+X,TY-Y
200 SYS LINE,1,TX+X,TY-Y,TX+X,TY+Y
210 :
220 SYS LINE,1,TX+X,TY,TX,TY+Y
230 SYS LINE,1,TX,TY+Y,TX-X,TY
240 SYS LINE,1,TX-X,TY,TX,TY-Y
250 SYS LINE,1,TX,TY-Y,TX+X,TY
260 :
270 NEXT
300 SYS HARDCOPY,3000